(calc-curve-fit): Change plot indicator.

diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el
index 287eb114ac2e1785ccece46191b9cb9aa5e6850d..eb3611c3fd0549965166b96d3091c055f750b48c 100644 (file)
--- a/lisp/calc/calcalg3.el
+++ b/lisp/calc/calcalg3.el
@@ -135,11 +135,10 @@
                  "' = alg entry, $ = stack, u = Model1, U = Model2")))
      (while (not calc-curve-model)
        (message 
-        (if plot
-            "Fit to model (plot): %s:%s"
-            "Fit to model: %s:%s")
+        "Fit to model: %s:%s%s"
         (nth which msgs)
-        (if homog " h" ""))
+        (if plot "p" " ")
+        (if homog "h" ""))
        (setq key (read-char))
        (cond ((= key ?\C-g)
              (keyboard-quit))